home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / program / togvb25.zip / VB.ZIP / TOGBITMA.FRM < prev    next >
Text File  |  1996-01-16  |  27KB  |  802 lines
  1. VERSION 2.00
  2. Begin Form TogBitmaps 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Toggle Bitmap & Timer Properties"
  6.    ClientHeight    =   3540
  7.    ClientLeft      =   1800
  8.    ClientTop       =   2460
  9.    ClientWidth     =   7545
  10.    Height          =   3945
  11.    Left            =   1740
  12.    LinkTopic       =   "Form2"
  13.    MDIChild        =   -1  'True
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3540
  16.    ScaleWidth      =   7545
  17.    Top             =   2115
  18.    Width           =   7665
  19.    Begin Frame Frame3 
  20.       BackColor       =   &H00C0C0C0&
  21.       Caption         =   "OnTimer Property"
  22.       FontBold        =   -1  'True
  23.       FontItalic      =   0   'False
  24.       FontName        =   "Arial"
  25.       FontSize        =   8.25
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   915
  29.       Left            =   3810
  30.       TabIndex        =   14
  31.       Top             =   45
  32.       Width           =   3630
  33.       Begin HScrollBar HScroll2 
  34.          Height          =   255
  35.          LargeChange     =   100
  36.          Left            =   900
  37.          Max             =   10000
  38.          Min             =   50
  39.          TabIndex        =   15
  40.          Top             =   285
  41.          Value           =   2000
  42.          Width           =   2000
  43.       End
  44.       Begin Label Label5 
  45.          Alignment       =   2  'Center
  46.          AutoSize        =   -1  'True
  47.          BackColor       =   &H00C0C0C0&
  48.          Caption         =   "Seconds"
  49.          FontBold        =   0   'False
  50.          FontItalic      =   0   'False
  51.          FontName        =   "Arial"
  52.          FontSize        =   8.25
  53.          FontStrikethru  =   0   'False
  54.          FontUnderline   =   0   'False
  55.          Height          =   210
  56.          Left            =   1515
  57.          TabIndex        =   21
  58.          Top             =   585
  59.          Width           =   645
  60.       End
  61.       Begin Label Label4 
  62.          AutoSize        =   -1  'True
  63.          BackStyle       =   0  'Transparent
  64.          Caption         =   "2"
  65.          FontBold        =   -1  'True
  66.          FontItalic      =   0   'False
  67.          FontName        =   "Arial"
  68.          FontSize        =   8.25
  69.          FontStrikethru  =   0   'False
  70.          FontUnderline   =   0   'False
  71.          Height          =   210
  72.          Left            =   3000
  73.          TabIndex        =   16
  74.          Top             =   330
  75.          Width           =   90
  76.       End
  77.       Begin Label Label3 
  78.          AutoSize        =   -1  'True
  79.          BackStyle       =   0  'Transparent
  80.          Caption         =   "OnTimer:"
  81.          FontBold        =   0   'False
  82.          FontItalic      =   0   'False
  83.          FontName        =   "Arial"
  84.          FontSize        =   8.25
  85.          FontStrikethru  =   0   'False
  86.          FontUnderline   =   0   'False
  87.          Height          =   210
  88.          Left            =   210
  89.          TabIndex        =   17
  90.          Top             =   300
  91.          Width           =   645
  92.       End
  93.    End
  94.    Begin Frame Frame2 
  95.       BackColor       =   &H00C0C0C0&
  96.       Caption         =   "Blink Properties"
  97.       Height          =   2400
  98.       Left            =   3810
  99.       TabIndex        =   13
  100.       Top             =   1050
  101.       Width           =   3615
  102.       Begin Frame Frame4 
  103.          BackColor       =   &H00C0C0C0&
  104.          Caption         =   "BlinkMode"
  105.          FontBold        =   -1  'True
  106.          FontItalic      =   0   'False
  107.          FontName        =   "Arial"
  108.          FontSize        =   8.25
  109.          FontStrikethru  =   0   'False
  110.          FontUnderline   =   0   'False
  111.          Height          =   1215
  112.          Left            =   1020
  113.          TabIndex        =   22
  114.          Top             =   255
  115.          Width           =   1710
  116.          Begin OptionButton Option1 
  117.             BackColor       =   &H00C0C0C0&
  118.             Caption         =   "When Off"
  119.             FontBold        =   0   'False
  120.             FontItalic      =   0   'False
  121.             FontName        =   "Arial"
  122.             FontSize        =   8.25
  123.             FontStrikethru  =   0   'False
  124.             FontUnderline   =   0   'False
  125.             Height          =   210
  126.             Index           =   3
  127.             Left            =   285
  128.             TabIndex        =   26
  129.             Top             =   945
  130.             Width           =   1065
  131.          End
  132.          Begin OptionButton Option1 
  133.             BackColor       =   &H00C0C0C0&
  134.             Caption         =   "When On"
  135.             FontBold        =   0   'False
  136.             FontItalic      =   0   'False
  137.             FontName        =   "Arial"
  138.             FontSize        =   8.25
  139.             FontStrikethru  =   0   'False
  140.             FontUnderline   =   0   'False
  141.             Height          =   210
  142.             Index           =   2
  143.             Left            =   285
  144.             TabIndex        =   25
  145.             Top             =   705
  146.             Width           =   1050
  147.          End
  148.          Begin OptionButton Option1 
  149.             BackColor       =   &H00C0C0C0&
  150.             Caption         =   "Always"
  151.             FontBold        =   0   'False
  152.             FontItalic      =   0   'False
  153.             FontName        =   "Arial"
  154.             FontSize        =   8.25
  155.             FontStrikethru  =   0   'False
  156.             FontUnderline   =   0   'False
  157.             Height          =   210
  158.             Index           =   1
  159.             Left            =   285
  160.             TabIndex        =   24
  161.             Top             =   480
  162.             Width           =   975
  163.          End
  164.          Begin OptionButton Option1 
  165.             BackColor       =   &H00C0C0C0&
  166.             Caption         =   "Never"
  167.             FontBold        =   0   'False
  168.             FontItalic      =   0   'False
  169.             FontName        =   "Arial"
  170.             FontSize        =   8.25
  171.             FontStrikethru  =   0   'False
  172.             FontUnderline   =   0   'False
  173.             Height          =   210
  174.             Index           =   0
  175.             Left            =   285
  176.             TabIndex        =   23
  177.             Top             =   240
  178.             Value           =   -1  'True
  179.             Width           =   870
  180.          End
  181.       End
  182.       Begin HScrollBar HScroll1 
  183.          Height          =   255
  184.          Left            =   930
  185.          Max             =   1000
  186.          Min             =   50
  187.          TabIndex        =   18
  188.          Top             =   1650
  189.          Value           =   200
  190.          Width           =   2000
  191.       End
  192.       Begin Label Label6 
  193.          Alignment       =   2  'Center
  194.          AutoSize        =   -1  'True
  195.          BackColor       =   &H00C0C0C0&
  196.          Caption         =   "Milliseconds"
  197.          FontBold        =   0   'False
  198.          FontItalic      =   0   'False
  199.          FontName        =   "Arial"
  200.          FontSize        =   8.25
  201.          FontStrikethru  =   0   'False
  202.          FontUnderline   =   0   'False
  203.          Height          =   210
  204.          Left            =   1485
  205.          TabIndex        =   27
  206.          Top             =   1920
  207.          Width           =   885
  208.       End
  209.       Begin Label Label2 
  210.          AutoSize        =   -1  'True
  211.          BackStyle       =   0  'Transparent
  212.          Caption         =   "200"
  213.          FontBold        =   -1  'True
  214.          FontItalic      =   0   'False
  215.          FontName        =   "Arial"
  216.          FontSize        =   8.25
  217.          FontStrikethru  =   0   'False
  218.          FontUnderline   =   0   'False
  219.          Height          =   210
  220.          Left            =   3000
  221.          TabIndex        =   20
  222.          Top             =   1680
  223.          Width           =   270
  224.       End
  225.       Begin Label Label1 
  226.          AutoSize        =   -1  'True
  227.          BackStyle       =   0  'Transparent
  228.          Caption         =   "BlinkRate:"
  229.          FontBold        =   0   'False
  230.          FontItalic      =   0   'False
  231.          FontName        =   "Arial"
  232.          FontSize        =   8.25
  233.          FontStrikethru  =   0   'False
  234.          FontUnderline   =   0   'False
  235.          Height          =   210
  236.          Left            =   195
  237.          TabIndex        =   19
  238.          Top             =   1665
  239.          Width           =   705
  240.       End
  241.    End
  242.    Begin Frame Frame1 
  243.       BackColor       =   &H00C0C0C0&
  244.       Caption         =   "Toggle Bitmap Examples"
  245.       Height          =   3360
  246.       Left            =   90
  247.       TabIndex        =   0
  248.       Top             =   60
  249.       Width           =   3570
  250.       Begin TOGGLE Toggle1 
  251.          AutoSize        =   -1  'True
  252.          AVersion        =   2.5
  253.          BackColor       =   &H00C0C0C0&
  254.          BevelInner      =   0  ' 0 - None
  255.          BevelOuter      =   2  ' 2 - Inset
  256.          BevelWidth      =   2
  257.          BlinkMode       =   0  ' 0 - Never
  258.          BlinkRate       =   200
  259.          BorderWidth     =   2
  260.          Height          =   540
  261.          Index           =   11
  262.          Left            =   1575
  263.          MouseControl    =   -1  'True
  264.          OffBackColor    =   &H00C0C0C0&
  265.          OffCaption      =   "Off"
  266.          OffForeColor    =   &H00000000&
  267.          OffPicture      =   TOGBITMA.FRX:0000
  268.          OffWave         =   ""
  269.          OffX            =   0
  270.          OffY            =   0
  271.          OnBackColor     =   &H00C0C0C0&
  272.          OnCaption       =   "On"
  273.          OnForeColor     =   &H00000000&
  274.          OnPicture       =   TOGBITMA.FRX:01CA
  275.          OnTimer         =   0
  276.          OnWave          =   ""
  277.          OnX             =   0
  278.          OnY             =   0
  279.          Outline         =   0   'False
  280.          OutlineColor    =   &H00000000&
  281.          PushX           =   0
  282.          PushY           =   0
  283.          Sound           =   0   'False
  284.          TabIndex        =   12
  285.          Top             =   2415
  286.          TwoState        =   0   'False
  287.          Value           =   -1  'True
  288.          Width           =   480
  289.       End
  290.       Begin TOGGLE Toggle1 
  291.          AutoSize        =   -1  'True
  292.          AVersion        =   2.5
  293.          BackColor       =   &H00C0C0C0&
  294.          BevelInner      =   0  ' 0 - None
  295.          BevelOuter      =   2  ' 2 - Inset
  296.          BevelWidth      =   2
  297.          BlinkMode       =   0  ' 0 - Never
  298.          BlinkRate       =   200
  299.          BorderWidth     =   2
  300.          Height          =   540
  301.          Index           =   10
  302.          Left            =   1065
  303.          MouseControl    =   -1  'True
  304.          OffBackColor    =   &H00C0C0C0&
  305.          OffCaption      =   "Off"
  306.          OffForeColor    =   &H00000000&
  307.          OffPicture      =   TOGBITMA.FRX:0394
  308.          OffWave         =   ""
  309.          OffX            =   0
  310.          OffY            =   0
  311.          OnBackColor     =   &H00C0C0C0&
  312.          OnCaption       =   "On"
  313.          OnForeColor     =   &H00000000&
  314.          OnPicture       =   TOGBITMA.FRX:055E
  315.          OnTimer         =   0
  316.          OnWave          =   ""
  317.          OnX             =   0
  318.          OnY             =   0
  319.          Outline         =   0   'False
  320.          OutlineColor    =   &H00000000&
  321.          PushX           =   0
  322.          PushY           =   0
  323.          Sound           =   0   'False
  324.          TabIndex        =   11
  325.          Top             =   2415
  326.          TwoState        =   0   'False
  327.          Value           =   -1  'True
  328.          Width           =   480
  329.       End
  330.       Begin TOGGLE Toggle1 
  331.          AutoSize        =   -1  'True
  332.          AVersion        =   2.5
  333.          BackColor       =   &H00C0C0C0&
  334.          BevelInner      =   0  ' 0 - None
  335.          BevelOuter      =   2  ' 2 - Inset
  336.          BevelWidth      =   2
  337.          BlinkMode       =   0  ' 0 - Never
  338.          BlinkRate       =   200
  339.          BorderWidth     =   2
  340.          Height          =   540
  341.          Index           =   9
  342.          Left            =   555
  343.          MouseControl    =   -1  'True
  344.          OffBackColor    =   &H00C0C0C0&
  345.          OffCaption      =   "Off"
  346.          OffForeColor    =   &H00000000&
  347.          OffPicture      =   TOGBITMA.FRX:0728
  348.          OffWave         =   ""
  349.          OffX            =   0
  350.          OffY            =   0
  351.          OnBackColor     =   &H00C0C0C0&
  352.          OnCaption       =   "On"
  353.          OnForeColor     =   &H00000000&
  354.          OnPicture       =   TOGBITMA.FRX:08F2
  355.          OnTimer         =   0
  356.          OnWave          =   ""
  357.          OnX             =   0
  358.          OnY             =   0
  359.          Outline         =   0   'False
  360.          OutlineColor    =   &H00000000&
  361.          PushX           =   0
  362.          PushY           =   0
  363.          Sound           =   0   'False
  364.          TabIndex        =   10
  365.          Top             =   2415
  366.          TwoState        =   0   'False
  367.          Value           =   -1  'True
  368.          Width           =   480
  369.       End
  370.       Begin TOGGLE Toggle1 
  371.          AutoSize        =   -1  'True
  372.          AVersion        =   2.5
  373.          BackColor       =   &H00C0C0C0&
  374.          BevelInner      =   0  ' 0 - None
  375.          BevelOuter      =   2  ' 2 - Inset
  376.          BevelWidth      =   2
  377.          BlinkMode       =   0  ' 0 - Never
  378.          BlinkRate       =   200
  379.          BorderWidth     =   2
  380.          Height          =   645
  381.          Index           =   8
  382.          Left            =   1545
  383.          MouseControl    =   -1  'True
  384.          OffBackColor    =   &H00C0C0C0&
  385.          OffCaption      =   "Off"
  386.          OffForeColor    =   &H00000000&
  387.          OffPicture      =   TOGBITMA.FRX:0ABC
  388.          OffWave         =   ""
  389.          OffX            =   0
  390.          OffY            =   0
  391.          OnBackColor     =   &H00C0C0C0&
  392.          OnCaption       =   "On"
  393.          OnForeColor     =   &H00000000&
  394.          OnPicture       =   TOGBITMA.FRX:0CDA
  395.          OnTimer         =   0
  396.          OnWave          =   ""
  397.          OnX             =   0
  398.          OnY             =   0
  399.          Outline         =   0   'False
  400.          OutlineColor    =   &H00000000&
  401.          PushX           =   0
  402.          PushY           =   0
  403.          Sound           =   0   'False
  404.          TabIndex        =   9
  405.          Top             =   1635
  406.          TwoState        =   0   'False
  407.          Value           =   0   'False
  408.          Width           =   420
  409.       End
  410.       Begin TOGGLE Toggle1 
  411.          AutoSize        =   -1  'True
  412.          AVersion        =   2.5
  413.          BackColor       =   &H00C0C0C0&
  414.          BevelInner      =   0  ' 0 - None
  415.          BevelOuter      =   2  ' 2 - Inset
  416.          BevelWidth      =   2
  417.          BlinkMode       =   0  ' 0 - Never
  418.          BlinkRate       =   200
  419.          BorderWidth     =   2
  420.          Height          =   645
  421.          Index           =   7
  422.          Left            =   1095
  423.          MouseControl    =   -1  'True
  424.          OffBackColor    =   &H00C0C0C0&
  425.          OffCaption      =   "Off"
  426.          OffForeColor    =   &H00000000&
  427.          OffPicture      =   TOGBITMA.FRX:0EF8
  428.          OffWave         =   ""
  429.          OffX            =   0
  430.          OffY            =   0
  431.          OnBackColor     =   &H00C0C0C0&
  432.          OnCaption       =   "On"
  433.          OnForeColor     =   &H00000000&
  434.          OnPicture       =   TOGBITMA.FRX:1116
  435.          OnTimer         =   0
  436.          OnWave          =   ""
  437.          OnX             =   0
  438.          OnY             =   0
  439.          Outline         =   0   'False
  440.          OutlineColor    =   &H00000000&
  441.          PushX           =   0
  442.          PushY           =   0
  443.          Sound           =   0   'False
  444.          TabIndex        =   8
  445.          Top             =   1635
  446.          TwoState        =   0   'False
  447.          Value           =   0   'False
  448.          Width           =   420
  449.       End
  450.       Begin TOGGLE Toggle1 
  451.          AutoSize        =   -1  'True
  452.          AVersion        =   2.5
  453.          BackColor       =   &H00C0C0C0&
  454.          BevelInner      =   0  ' 0 - None
  455.          BevelOuter      =   2  ' 2 - Inset
  456.          BevelWidth      =   2
  457.          BlinkMode       =   0  ' 0 - Never
  458.          BlinkRate       =   200
  459.          BorderWidth     =   2
  460.          Height          =   645
  461.          Index           =   6
  462.          Left            =   645
  463.          MouseControl    =   -1  'True
  464.          OffBackColor    =   &H00C0C0C0&
  465.          OffCaption      =   "Off"
  466.          OffForeColor    =   &H00000000&
  467.          OffPicture      =   TOGBITMA.FRX:1334
  468.          OffWave         =   ""
  469.          OffX            =   0
  470.          OffY            =   0
  471.          OnBackColor     =   &H00C0C0C0&
  472.          OnCaption       =   "On"
  473.          OnForeColor     =   &H00000000&
  474.          OnPicture       =   TOGBITMA.FRX:1552
  475.          OnTimer         =   0
  476.          OnWave          =   ""
  477.          OnX             =   0
  478.          OnY             =   0
  479.          Outline         =   0   'False
  480.          OutlineColor    =   &H00000000&
  481.          PushX           =   0
  482.          PushY           =   0
  483.          Sound           =   0   'False
  484.          TabIndex        =   7
  485.          Top             =   1635
  486.          TwoState        =   0   'False
  487.          Value           =   0   'False
  488.          Width           =   420
  489.       End
  490.       Begin TOGGLE Toggle1 
  491.          AutoSize        =   -1  'True
  492.          AVersion        =   2.5
  493.          BackColor       =   &H00C0C0C0&
  494.          BevelInner      =   0  ' 0 - None
  495.          BevelOuter      =   2  ' 2 - Inset
  496.          BevelWidth      =   2
  497.          BlinkMode       =   0  ' 0 - Never
  498.          BlinkRate       =   200
  499.          BorderWidth     =   2
  500.          Height          =   420
  501.          Index           =   5
  502.          Left            =   2370
  503.          MouseControl    =   -1  'True
  504.          OffBackColor    =   &H00C0C0C0&
  505.          OffCaption      =   "Off"
  506.          OffForeColor    =   &H00000000&
  507.          OffPicture      =   TOGBITMA.FRX:1770
  508.          OffWave         =   ""
  509.          OffX            =   0
  510.          OffY            =   0
  511.          OnBackColor     =   &H00C0C0C0&
  512.          OnCaption       =   "On"
  513.          OnForeColor     =   &H00000000&
  514.          OnPicture       =   TOGBITMA.FRX:197A
  515.          OnTimer         =   0
  516.          OnWave          =   ""
  517.          OnX             =   0
  518.          OnY             =   0
  519.          Outline         =   0   'False
  520.          OutlineColor    =   &H00000000&
  521.          PushX           =   0
  522.          PushY           =   0
  523.          Sound           =   0   'False
  524.          TabIndex        =   6
  525.          Top             =   2535
  526.          TwoState        =   0   'False
  527.          Value           =   -1  'True
  528.          Width           =   645
  529.       End
  530.       Begin TOGGLE Toggle1 
  531.          AutoSize        =   -1  'True
  532.          AVersion        =   2.5
  533.          BackColor       =   &H00C0C0C0&
  534.          BevelInner      =   0  ' 0 - None
  535.          BevelOuter      =   2  ' 2 - Inset
  536.          BevelWidth      =   2
  537.          BlinkMode       =   0  ' 0 - Never
  538.          BlinkRate       =   200
  539.          BorderWidth     =   2
  540.          Height          =   420
  541.          Index           =   4
  542.          Left            =   2370
  543.          MouseControl    =   -1  'True
  544.          OffBackColor    =   &H00C0C0C0&
  545.          OffCaption      =   "Off"
  546.          OffForeColor    =   &H00000000&
  547.          OffPicture      =   TOGBITMA.FRX:1B84
  548.          OffWave         =   ""
  549.          OffX            =   0
  550.          OffY            =   0
  551.          OnBackColor     =   &H00C0C0C0&
  552.          OnCaption       =   "On"
  553.          OnForeColor     =   &H00000000&
  554.          OnPicture       =   TOGBITMA.FRX:1D8E
  555.          OnTimer         =   0
  556.          OnWave          =   ""
  557.          OnX             =   0
  558.          OnY             =   0
  559.          Outline         =   0   'False
  560.          OutlineColor    =   &H00000000&
  561.          PushX           =   0
  562.          PushY           =   0
  563.          Sound           =   0   'False
  564.          TabIndex        =   5
  565.          Top             =   2085
  566.          TwoState        =   0   'False
  567.          Value           =   -1  'True
  568.          Width           =   645
  569.       End
  570.       Begin TOGGLE Toggle1 
  571.          AutoSize        =   -1  'True
  572.          AVersion        =   2.5
  573.          BackColor       =   &H00C0C0C0&
  574.          BevelInner      =   0  ' 0 - None
  575.          BevelOuter      =   2  ' 2 - Inset
  576.          BevelWidth      =   2
  577.          BlinkMode       =   0  ' 0 - Never
  578.          BlinkRate       =   200
  579.          BorderWidth     =   2
  580.          Height          =   420
  581.          Index           =   3
  582.          Left            =   2370
  583.          MouseControl    =   -1  'True
  584.          OffBackColor    =   &H00C0C0C0&
  585.          OffCaption      =   "Off"
  586.          OffForeColor    =   &H00000000&
  587.          OffPicture      =   TOGBITMA.FRX:1F98
  588.          OffWave         =   ""
  589.          OffX            =   0
  590.          OffY            =   0
  591.          OnBackColor     =   &H00C0C0C0&
  592.          OnCaption       =   "On"
  593.          OnForeColor     =   &H00000000&
  594.          OnPicture       =   TOGBITMA.FRX:26A2
  595.          OnTimer         =   0
  596.          OnWave          =   ""
  597.          OnX             =   0
  598.          OnY             =   0
  599.          Outline         =   0   'False
  600.          OutlineColor    =   &H00000000&
  601.          PushX           =   0
  602.          PushY           =   0
  603.          Sound           =   0   'False
  604.          TabIndex        =   4
  605.          Top             =   1635
  606.          TwoState        =   0   'False
  607.          Value           =   -1  'True
  608.          Width           =   645
  609.       End
  610.       Begin TOGGLE Toggle1 
  611.          AutoSize        =   -1  'True
  612.          AVersion        =   2.5
  613.          BackColor       =   &H00C0C0C0&
  614.          BevelInner      =   0  ' 0 - None
  615.          BevelOuter      =   2  ' 2 - Inset
  616.          BevelWidth      =   2
  617.          BlinkMode       =   0  ' 0 - Never
  618.          BlinkRate       =   200
  619.          BorderWidth     =   2
  620.          Height          =   420
  621.          Index           =   2
  622.          Left            =   2100
  623.          MouseControl    =   -1  'True
  624.          OffBackColor    =   &H00C0C0C0&
  625.          OffCaption      =   "Off"
  626.          OffForeColor    =   &H00000000&
  627.          OffPicture      =   TOGBITMA.FRX:28AC
  628.          OffWave         =   ""
  629.          OffX            =   0
  630.          OffY            =   0
  631.          OnBackColor     =   &H00C0C0C0&
  632.          OnCaption       =   "On"
  633.          OnForeColor     =   &H00000000&
  634.          OnPicture       =   TOGBITMA.FRX:2AB6
  635.          OnTimer         =   0
  636.          OnWave          =   ""
  637.          OnX             =   0
  638.          OnY             =   0
  639.          Outline         =   0   'False
  640.          OutlineColor    =   &H00000000&
  641.          PushX           =   0
  642.          PushY           =   0
  643.          Sound           =   0   'False
  644.          TabIndex        =   3
  645.          Top             =   660
  646.          TwoState        =   0   'False
  647.          Value           =   0   'False
  648.          Width           =   720
  649.       End
  650.       Begin TOGGLE Toggle1 
  651.          AutoSize        =   -1  'True
  652.          AVersion        =   2.5
  653.          BackColor       =   &H00C0C0C0&
  654.          BevelInner      =   0  ' 0 - None
  655.          BevelOuter      =   2  ' 2 - Inset
  656.          BevelWidth      =   2
  657.          BlinkMode       =   0  ' 0 - Never
  658.          BlinkRate       =   200
  659.          BorderWidth     =   2
  660.          Height          =   720
  661.          Index           =   1
  662.          Left            =   1620
  663.          MouseControl    =   -1  'True
  664.          OffBackColor    =   &H00C0C0C0&
  665.          OffCaption      =   "Off"
  666.          OffForeColor    =   &H00000000&
  667.          OffPicture      =   TOGBITMA.FRX:2CC0
  668.          OffWave         =   ""
  669.          OffX            =   0
  670.          OffY            =   0
  671.          OnBackColor     =   &H00C0C0C0&
  672.          OnCaption       =   "On"
  673.          OnForeColor     =   &H00000000&
  674.          OnPicture       =   TOGBITMA.FRX:2F1A
  675.          OnTimer         =   0
  676.          OnWave          =   ""
  677.          OnX             =   0
  678.          OnY             =   0
  679.          Outline         =   0   'False
  680.          OutlineColor    =   &H00000000&
  681.          PushX           =   0
  682.          PushY           =   0
  683.          Sound           =   0   'False
  684.          TabIndex        =   2
  685.          Top             =   480
  686.          TwoState        =   0   'False
  687.          Value           =   0   'False
  688.          Width           =   420
  689.       End
  690.       Begin TOGGLE Toggle1 
  691.          AutoSize        =   -1  'True
  692.          AVersion        =   2.5
  693.          BackColor       =   &H00C0C0C0&
  694.          BevelInner      =   0  ' 0 - None
  695.          BevelOuter      =   2  ' 2 - Inset
  696.          BevelWidth      =   2
  697.          BlinkMode       =   0  ' 0 - Never
  698.          BlinkRate       =   200
  699.          BorderWidth     =   2
  700.          Height          =   540
  701.          Index           =   0
  702.          Left            =   840
  703.          MouseControl    =   -1  'True
  704.          OffBackColor    =   &H00C0C0C0&
  705.          OffCaption      =   "Off"
  706.          OffForeColor    =   &H00000000&
  707.          OffPicture      =   TOGBITMA.FRX:3174
  708.          OffWave         =   ""
  709.          OffX            =   0
  710.          OffY            =   0
  711.          OnBackColor     =   &H00C0C0C0&
  712.          OnCaption       =   "On"
  713.          OnForeColor     =   &H00000000&
  714.          OnPicture       =   TOGBITMA.FRX:33AE
  715.          OnTimer         =   0
  716.          OnWave          =   ""
  717.          OnX             =   0
  718.          OnY             =   0
  719.          Outline         =   0   'False
  720.          OutlineColor    =   &H00000000&
  721.          PushX           =   0
  722.          PushY           =   0
  723.          Sound           =   0   'False
  724.          TabIndex        =   1
  725.          Top             =   600
  726.          TwoState        =   0   'False
  727.          Value           =   -1  'True
  728.          Width           =   540
  729.       End
  730.    End
  731. End
  732.  
  733. Sub Form_Load ()
  734.  
  735.     option1(2) = True
  736.     For i = 0 To 11
  737.         toggle1(i).BlinkMode = 2
  738.     Next
  739.  
  740. End Sub
  741.  
  742. Sub HScroll1_Change ()
  743.  
  744.     label2 = hscroll1
  745.  
  746.     For i = 0 To 11
  747.         toggle1(i).BlinkRate = hscroll1
  748.     Next
  749.  
  750. End Sub
  751.  
  752. Sub HScroll1_Scroll ()
  753.  
  754.     label2 = hscroll1
  755.  
  756.     For i = 0 To 11
  757.         toggle1(i).BlinkRate = hscroll1
  758.     Next
  759.  
  760. End Sub
  761.  
  762. Sub HScroll2_Change ()
  763.  
  764.     If hscroll2 >= 1000 Then
  765.         label4 = hscroll2 / 1000
  766.         label5 = "Seconds"
  767.     Else
  768.         label4 = hscroll2
  769.         label5 = "Milliseconds"
  770.     End If
  771.  
  772.     For i = 0 To 11
  773.         toggle1(i).OnTimer = hscroll2
  774.     Next
  775.  
  776. End Sub
  777.  
  778. Sub HScroll2_Scroll ()
  779.  
  780.     If hscroll2 >= 1000 Then
  781.         label4 = hscroll2 / 1000
  782.         label5 = "Seconds"
  783.     Else
  784.         label4 = hscroll2
  785.         label5 = "Milliseconds"
  786.     End If
  787.  
  788.     For i = 0 To 11
  789.         toggle1(i).OnTimer = hscroll2
  790.     Next
  791.  
  792. End Sub
  793.  
  794. Sub Option1_Click (index As Integer)
  795.  
  796.     For i = 0 To 11
  797.         toggle1(i).BlinkMode = index
  798.     Next
  799.  
  800. End Sub
  801.  
  802.